home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.2 / Video Toaster v4.2.iso / arexx / cg / sizeup.rexx < prev    next >
OS/2 REXX Batch file  |  1995-02-17  |  699b  |  31 lines

  1. /* SizeUp.rexx -- Size a font up by 5 points               */
  2. /* By Bob Caron © 1994 NewTek, Inc.                        */
  3.  
  4. call addlib(CG_AREXX,0)
  5.  
  6. cfont=get_char(face)
  7. csize=get_font(SIZE)
  8. csize=csize+5
  9.  
  10. if GET_LINE(TYPE)="Box" then call outtahere("You can't run this on boxes!")
  11. if GET_FONT(TYPE)<4 then call outtahere("This can only be used on postscript fonts!!")
  12. if csize>400 then call outtahere("You can't have a font THAT big!")
  13.  
  14. call REQ_BAR("Loading Font...")
  15. call loadfont(cfont,csize)
  16.  
  17. call set_char(face,cfont,csize)
  18.  
  19. call REQ_BAR("ToasterCG")
  20. call REMLIB(CG_AREXX)
  21.  
  22. exit
  23.  
  24. outtahere:
  25.  
  26. parse arg message
  27. call req_tell(message)
  28. call REQ_BAR("ToasterCG")
  29. call REMLIB(CG_AREXX)
  30. exit
  31. return